home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / LANTCPIP.SRP < prev    next >
Text File  |  1996-06-04  |  1KB  |  63 lines
  1. rem Copyright(c) PhoneLink plc
  2. rem TCP/IP (10/8/95)
  3.  
  4. label InitDevice
  5. echo off
  6. label OffToGate
  7. echo off
  8. echo script[51]
  9. EstablishIPCall "{SiteTel}"
  10. echo script[53]
  11. send "char(13)"
  12. timeout 30,connect_fail
  13. find "PAD>"
  14. send    "c {NUA}char(13)"
  15. timeout 3,nua_bad1
  16. finderr 0,COM,nua_good
  17. find    "ZZZ"
  18. label nua_bad1
  19. echo script[58]
  20. send    "c {NUA}char(13)"
  21. timeout 3,nua_bad2
  22. finderr 0,COM,nua_good
  23. find    "ZZZ"
  24. label nua_bad2
  25. echo script[58]
  26. send    "c {NUA}char(13)"
  27. timeout 3,nua_fail
  28. find    "COM"
  29. label nua_good
  30. echo  script[54].
  31. end
  32.  
  33. label GateToOff
  34. echo off
  35. echo script[92]
  36. send "char(16)CLRchar(13)"
  37. timeout 5,clear_fail
  38. find "CONF"
  39. BreakIPCall
  40. echo script[90].
  41. end
  42.  
  43. label TCPIP_offline
  44. send "char(16)CLRchar(13)"
  45. timeout 5,hang_up
  46. find "CONF"
  47. label hang_up
  48. BreakIPCall
  49. echo script[90].
  50. abort
  51.  
  52. label connect_fail
  53. echo script[1]
  54. goto hang_up
  55.  
  56. label nua_fail
  57. echo script[22]
  58. goto TCPIP_offline
  59.  
  60. label clear_fail
  61. echo script[13]
  62. goto TCPIP_offline
  63.